inherited frmCad_ControleProdutoCliente: TfrmCad_ControleProdutoCliente
  Left = 384
  Top = 185
  Caption = 'Cadastro de Produtos por Cliente'
  ClientWidth = 638
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 638
    Height = 40
    object lblEntidade: TLabel
      Left = 50
      Top = 11
      Width = 47
      Height = 14
      Caption = 'Entidade'
    end
    object btnC_Entidade: TSpeedButton
      Left = 154
      Top = 9
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = btnC_EntidadeClick
    end
    object EdtEnt_codigo: TEdit
      Left = 103
      Top = 9
      Width = 48
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 5
      TabOrder = 0
      OnEnter = EdtEnt_codigoEnter
      OnExit = EdtEnt_codigoExit
      OnKeyDown = EdtEnt_codigoKeyDown
    end
    object Panel13: TPanel
      Left = 179
      Top = 9
      Width = 385
      Height = 22
      Alignment = taLeftJustify
      BevelInner = bvLowered
      TabOrder = 1
    end
  end
  inherited Panel2: TPanel
    Top = 40
    Width = 638
    Height = 258
    object PageControl1: TPageControl
      Left = 3
      Top = 3
      Width = 632
      Height = 252
      ActivePage = tbConsulta
      Align = alClient
      TabOrder = 0
      OnChanging = PageControl1Changing
      object tbConsulta: TTabSheet
        Caption = 'Consulta'
        object DBGrid1: TDBGrid
          Left = 0
          Top = 0
          Width = 624
          Height = 186
          Align = alClient
          DataSource = DS
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnDblClick = DBGrid1DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'PRE_CODIGO_ENTIDADE'
              Title.Caption = 'C'#243'd. Produto p/ Cliente'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PRO_CODIGO'
              Title.Caption = 'C'#243'd. Produto'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PRE_DESCRICAO'
              Title.Caption = 'Descri'#231#227'o'
              Visible = True
            end>
        end
        object Panel22: TPanel
          Left = 0
          Top = 186
          Width = 624
          Height = 37
          Align = alBottom
          BevelInner = bvLowered
          Color = clWhite
          TabOrder = 1
          object BtnInsereItem: TBitBtn
            Left = 8
            Top = 6
            Width = 161
            Height = 25
            Caption = 'Inserir'
            TabOrder = 0
            OnClick = BtnInsereItemClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333333333FF33333333333330003333333333333777333333333333
              300033FFFFFF3333377739999993333333333777777F3333333F399999933333
              3300377777733333337733333333333333003333333333333377333333333333
              3333333333333333333F333333333333330033333F33333333773333C3333333
              330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
              993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
              333333377F33333333FF3333C333333330003333733333333777333333333333
              3000333333333333377733333333333333333333333333333333}
            NumGlyphs = 2
          end
          object BtnEditaItem: TBitBtn
            Left = 232
            Top = 6
            Width = 161
            Height = 25
            Caption = 'Editar'
            TabOrder = 1
            OnClick = BtnEditaItemClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
              000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
              00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
              F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
              0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
              FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
              FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
              0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
              00333377737FFFFF773333303300000003333337337777777333}
            NumGlyphs = 2
          end
          object BtnEliminaItem: TBitBtn
            Left = 456
            Top = 6
            Width = 161
            Height = 25
            Caption = 'Retirar'
            TabOrder = 2
            OnClick = BtnEliminaItemClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333333333FF33333333333330003333333333333777333333333333
              300033FFFFFF3333377739999993333333333777777F3333333F399999933333
              3300377777733333337733333333333333003333333333333377333333333333
              3333333333333333333F333333333333330033333F33333333773333C3333333
              330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
              993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
              333333377F33333333FF3333C333333330003333733333333777333333333333
              3000333333333333377733333333333333333333333333333333}
            NumGlyphs = 2
          end
        end
      end
      object tbDados: TTabSheet
        Caption = 'Dados'
        ImageIndex = 1
        object lblEntidade1: TLabel
          Left = 4
          Top = 51
          Width = 126
          Height = 28
          Alignment = taRightJustify
          Caption = 'C'#243'd. do Produto usado'#13#10'pela entidade'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
        end
        object Label2: TLabel
          Left = 86
          Top = 16
          Width = 44
          Height = 14
          Alignment = taRightJustify
          Caption = 'Produto'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
        end
        object Label3: TLabel
          Left = 76
          Top = 98
          Width = 54
          Height = 14
          Alignment = taRightJustify
          Caption = 'Descri'#231#227'o'
        end
        object c_prod: TSpeedButton
          Left = 267
          Top = 14
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = c_prodClick
        end
        object ed_controle: TMaskEdit
          Left = 135
          Top = 55
          Width = 170
          Height = 22
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          Color = clInfoBk
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 20
          ParentFont = False
          TabOrder = 1
        end
        object ed_prod: TMaskEdit
          Left = 135
          Top = 14
          Width = 130
          Height = 22
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          Color = clInfoBk
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 15
          ParentFont = False
          TabOrder = 0
          OnEnter = ed_prodEnter
          OnExit = ed_prodExit
          OnKeyDown = ed_prodKeyDown
        end
        object p_prod: TPanel
          Left = 295
          Top = 14
          Width = 325
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          Color = 14081504
          TabOrder = 4
        end
        object ed_desc: TEdit
          Left = 135
          Top = 96
          Width = 485
          Height = 22
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 70
          ParentFont = False
          TabOrder = 2
        end
        object Panel17: TPanel
          Left = 0
          Top = 189
          Width = 624
          Height = 34
          Align = alBottom
          BevelInner = bvLowered
          Color = clWhite
          TabOrder = 3
          object BtnCancelaItem: TBitBtn
            Left = 389
            Top = 6
            Width = 103
            Height = 22
            Caption = 'Cancela'
            TabOrder = 1
            OnClick = BtnCancelaItemClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
              33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
              993337777F777F3377F3393999707333993337F77737333337FF993399933333
              399377F3777FF333377F993339903333399377F33737FF33377F993333707333
              399377F333377FF3377F993333101933399377F333777FFF377F993333000993
              399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
              99333773FF777F777733339993707339933333773FF7FFF77333333999999999
              3333333777333777333333333999993333333333377777333333}
            NumGlyphs = 2
          end
          object BtnConfirmaItem: TBitBtn
            Left = 132
            Top = 6
            Width = 103
            Height = 22
            Caption = 'Confirma'
            TabOrder = 0
            OnClick = BtnConfirmaItemClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333333333333333333FFF333333333333000333333333
              3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
              3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
              0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
              BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
              33337777773FF733333333333300033333333333337773333333333333333333
              3333333333333333333333333333333333333333333333333333333333333333
              3333333333333333333333333333333333333333333333333333}
            NumGlyphs = 2
          end
        end
      end
    end
  end
  inherited Panel4: TPanel
    Width = 638
    inherited btnCancelar1: TBitBtn
      Left = 267
      Top = 12
    end
    inherited btnFechar1: TBitBtn
      Left = 524
      Top = 12
    end
    inherited BtnEliminar1: TBitBtn
      Left = 146
      Top = 12
    end
    inherited btnlistagem1: TBitBtn
      Left = 395
      Top = 12
    end
    inherited btnGravar: TFlatButton
      OnClick = btnGravarClick
    end
    inherited BtnEliminar: TFlatButton
      Left = 135
      OnClick = BtnEliminarClick
    end
    inherited btnCancelar: TFlatButton
      Left = 261
    end
    inherited btnlistagem: TFlatButton
      Left = 387
    end
    inherited btnFechar: TFlatButton
      Left = 513
    end
  end
  inherited BS: TStatusBar
    Width = 638
  end
  inherited Timer1: TTimer
    Left = 557
    Top = 180
  end
  object CDS: TClientDataSet
    Aggregates = <>
    Filter = 'DELETADO=False'
    Filtered = True
    Params = <>
    Left = 439
    Top = 100
    object CDSENT_CODIGO: TStringField
      FieldName = 'ENT_CODIGO'
      Size = 5
    end
    object CDSPRE_CODIGO_ENTIDADE: TStringField
      FieldName = 'PRE_CODIGO_ENTIDADE'
    end
    object CDSPRO_CODIGO: TStringField
      FieldName = 'PRO_CODIGO'
    end
    object CDSPRE_DESCRICAO: TStringField
      FieldName = 'PRE_DESCRICAO'
      Size = 70
    end
    object CDSDELETADO: TBooleanField
      FieldName = 'DELETADO'
    end
  end
  object DS: TDataSource
    DataSet = CDS
    Left = 471
    Top = 100
  end
end
